home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / userid.zip / USERID.PRG < prev   
Text File  |  1991-05-23  |  104b  |  7 lines
  1. function userid
  2. load userid
  3. temp=space(48)
  4. call userid with temp
  5. release userid
  6. return trim(temp)
  7.